(defun xml-insert-testcase (name no level)
  (interactive "sThe name of tcd is:
sThe number of tcd is:
sThe level of tcd is:")
  (insert
   (concat
"<testCase tcName=\"" name "\" no=\"" no "\" level=\"" level "\">
  <feature>
  </feature>
  <environmentalNeeds>
  </environmentalNeeds>
  <inputAndOutput>
    <notes>
      <note>
      </note>
    </notes>
    <automaticTest>
    </automaticTest>
    <manualTest>
    </manualTest>
  </inputAndOutput>
</testCase>"))
  (previous-line 14))

(defun xml-insert-notes (c title)
  (interactive "nThe counts of notes is:
sThe title of notes is:")
  (insert
   (concat
"<notes>
  <notesTitle>" title "</notesTitle>\n"))
  (setq counter 0)
  (while (< counter c)
    (insert 
"  <note>
  </note>\n")
    (setq counter (+ counter 1)))
  (insert
"</notes>"))

(defun xml-insert-ao (art platform)
  (interactive "sArt is[a/o]:
sPlatform is[u/w/a]:")
   (if (string-match "a" art)
       (setq art "action")
     (setq  art "observation"))

  (if (string-match "u" platform)
      (setq platform "unix")
    (if (string-match "w" platform)
	(setq platform "windows")
      (if (string-match "a" platform)
	  (setq platform "all")
	(setq platform ""))))
  (insert
   (concat
"<ao art=\"" art "\" platform=\"" platform "\">
</ao>"))
  (previous-line 1))
